100 POKE53280,0:POKE53281,0:POKE 650,128:PRINT"[147]":PRINT CHR$(14)
110 PRINT"[159]             [211]ECURITY [214]2.00[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
200 PRINT"      [208]LEASE ENTER THE TIME [200][200][205][205][211][211][157][157][157][157][157][157]";
300 FOR X = 1 TO 6
400 GET A$(X):IF A$(X)=""THEN GOTO 400
500 IFASC(A$(X))<48ORASC(A$(X))>57 THEN GOTO 400
600 PRINT A$(X);
700 NEXT X
800 T$=A$(1)+A$(2)+A$(3)+A$(4)+A$(5)+A$(6)
900 IF VAL(T$)>235959ORVAL(T$)<000000ORLEN(T$)<>6 THEN GOTO 200
1000 IF  VAL(LEFT$(T$,2))>23THEN GOTO 200
1100 IF VAL(MID$(T$,3,2))>59THEN PRINT "[201]NVALID TIME!":GOTO 200
1200 IF VAL(RIGHT$(T$,2))>59THEN GOTO 200
1250 PRINT:PRINT"       [208]RESS A KEY TO START CLOCK."
1260 GET L$:IF L$ = "" THEN GOTO 1260
1300 TI$=T$
1310 PRINT
1400 PRINT TAB(16)"[212]IME SET.":FOR X = 1 TO 2000:NEXT X:PRINT"[147]"
1500 PRINT"[208]LUG THE WIRE INTO PORT #1 AND CLOSE    THE DOOR.";
1700 IF PEEK(145)=255 THEN GOTO 1700
1800 PRINT"[147][196]OOR SHUT. [211]CANNING.........":OPEN 1,8,1,"PRGSTRT @ "+TI$+",U"
1900 CLOSE 1
2000 IFPEEK(145)=247THENGOTO2200
2100 GOTO 3300
2200 IFPEEK(56320)=111THEN GOTO 2400
2300 GOTO 2000
2400 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$:OPEN 1,8,1,"PRESPAD @ "+TI$+",U"
2500 CLOSE 1
2600 IF PEEK(56320)=111THENGOTO 2600
2700 GOTO 2000
2800 REM
2900 REM *******************************
3000 REM *           CHECK!            *
3100 REM *******************************
3200 REM
3300 B = B + 1
3400 Q$=TI$
3450 IFPEEK(145)=247THENW=VAL(TI$)-VAL(Q$):GOTO 4000
3500 PRINT"[194]REAK IN NO.";B;" STARTED AT ";Q$
3600 OPEN 1,8,1,"BRKIN"+STR$(B)+" @ "+TI$+",U"
3700 CLOSE 1
3800 IFPEEK(145)=247THENPRINT"[193]ND FINISHED AT ";TI$:W=VAL(TI$)-VAL(Q$):GOTO 4400
3900 IFPEEK(56320)=111THEN GOTO 4100
4000 GOTO 3800
4100 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$:OPEN1,8,1,"PRESPAD @ "+TI$+",U":CLOSE1
4200 IF PEEK(56320)=111THENGOTO 4200
4300 GOTO 3800
4400 PRINT"[204]ENGTH OF BREAK IN WAS ";W
4500 OPEN 1,8,1,"BREND"+STR$(B)+" @ "+TI$+",U":GOTO4900
4600 GOTO 4800
4700 PRINT"[204]ENGTH OF BREAK IN WAS ";W:GOTO4500
4800 GOTO 3800
4900 CLOSE 1:GOTO 2000